8000 REM LADER KREUZUNGEN =====C64 8010 REM (P) COMMODORE WELT TEAM = 8020 REM ========================= 8030 REM (C) BY GUENTER KRAMER = 8040 REM EMSDETTEN = 8050 REM = 8060 REM BASIC 2.0 40Z/ASCII = 8070 REM C64 + 1530/1541/1571 = 8080 REM ========================= 8090 S=0 8100 A=PEEK(61)+256*PEEK(62) 8110 POKE65,AAND255 8120 POKE66,A/256 8130 PRINTCHR$(147)"LADEN ASSEMBLER" 8140 FORI=0TO2 8150 READA 8160 S=S+A 8170 AD(I)=A 8180 NEXT 8190 READA 8200 IFS=ATHEN8230 8210 PRINT"FEHLER IN PRUEFSUMMEN" 8220 END 8230 AN=49152 8240 EN=49783 8250 S=0 8260 FORJ=0TO2 8270 A=AN+256*J 8280 E=A+255 8290 IFE>ENTHENE=EN 8300 FORI=ATOE 8310 READA 8320 D2=PEEK(63)+256*PEEK(64) 8330 IFD1=0THEND1=D2 8340 IF(A<0)OR(A>255)THEN8410 8350 IFA-INT(A)<>0THEN8410 8360 S=S+A 8370 POKEI,A:NEXT 8380 IFS<>AD(J)THEN8440 8390 PRINT"TEIL"J"IN ORDNUNG" 8400 GOTO8460 8410 PRINT"DATAFEHLER IN ZEILE"S 8420 PRINT"FALSCHER WERT ="A 8430 END 8440 PRINT"DATAFEHLER ZEILEN"D1"-"D2 8450 END 8460 D1=0 8470 S=0 8480 NEXT 8490 GOTO8530 8500 REM ************************* 8510 REM SAVE MASCHINENPROGRAMM * 8520 REM ************************* 8530 PRINT 8540 PRINT"SAVE MASCHINENPROGRAMM" 8550 PRINT 8560 PRINT"ADRESSE ? 1 = KASSETTE" 8570 PRINTTAB(8)"8/9 = DISKETTE" 8580 POKE198,0 8590 GETA$:IFA$=""THEN8590 8600 IFA$="1"THEN8620 8610 IF(A$<"8")OR(A$>"9")THEN8590 8620 POKE2,VAL(A$) 8630 FORI=0TO3 8640 POKE251+I,PEEK(43+I) 8650 NEXT 8660 POKE43,0 8670 POKE44,192 8680 POKE45,120 8690 POKE46,194 8700 SAVE"M.P. KREUZUNGEN",PEEK(2) 8710 POKE43,PEEK(251) 8720 POKE44,PEEK(252) 8730 POKE45,PEEK(253) 8740 POKE46,PEEK(254) 8750 IFPEEK(2)=1THENEND 8760 PRINT 8770 OPEN1,8,15 8780 GET#1,A$ 8790 GET#1,B$ 8800 IF(A$="0")AND(B$="0")THEN8900 8810 PRINTA$;B$; 8820 GET#1,A$ 8830 PRINTA$; 8840 IFST<>64THEN8820 8850 CLOSE1 8860 PRINT"FLOPPY OK?[160](J/E)" 8870 PRINT"E = ENDE, NICHT SPEICHERN" 8880 GETA$:IFA$="J"THEN8660 8890 IFA$<>"E"THEN8880 8900 CLOSE1:END 8910 REM ************************* 8920 REM ***** DATAS PRUEFSUMMEN * 8930 REM ************************* 8940 DATA 33564,37291,5505,76360 8950 REM ************************* 8960 REM DATAS MASCHINENPROGRAMM * 8970 REM ************************* 8980 DATA 076,006,192,076,100,192 8981 DATA 032,160,229,120,169,003 8982 DATA 141,020,003,169,192,141 8990 DATA 021,003,169,248,141,018 8991 DATA 208,173,017,208,041,127 8992 DATA 141,017,208,169,129,141 9000 DATA 026,208,088,169,000,141 9001 DATA 118,192,169,024,141,000 9002 DATA 208,141,002,208,169,088 9010 DATA 141,004,208,141,006,208 9011 DATA 169,152,141,008,208,141 9012 DATA 010,208,169,216,141,012 9020 DATA 208,141,014,208,169,255 9021 DATA 141,023,208,141,029,208 9022 DATA 169,194,133,252,169,000 9030 DATA 160,000,133,251,145,251 9031 DATA 200,208,251,096,173,025 9032 DATA 208,141,025,208,048,007 9040 DATA 173,013,220,088,076,049 9041 DATA 234,162,000,240,006,076 9042 DATA 137,192,076,159,192,076 9043 DATA 181,192,076,195,192,076 9050 DATA 209,192,076,223,192,173 9051 DATA 017,208,041,247,141,017 9052 DATA 208,169,003,141,118,192 9060 DATA 162,000,169,000,160,254 9061 DATA 076,237,192,173,017,208 9062 DATA 009,008,141,017,208,169 9070 DATA 006,141,118,192,162,048 9071 DATA 169,032,160,008,076,237 9072 DATA 192,169,009,141,118,192 9080 DATA 160,057,169,064,162,096 9081 DATA 076,237,192,169,012,141 9082 DATA 118,192,160,105,169,096 9090 DATA 162,144,076,237,192,169 9091 DATA 015,141,118,192,160,153 9092 DATA 169,128,162,192,076,237 9100 DATA 192,169,000,141,118,192 9101 DATA 160,201,169,160,162,248 9102 DATA 076,237,192,140,001,208 9110 DATA 140,003,208,140,005,208 9111 DATA 140,007,208,140,009,208 9112 DATA 140,011,208,140,013,208 9120 DATA 140,015,208,142,018,208 9121 DATA 160,000,133,251,177,251 9122 DATA 141,021,208,200,177,251 9130 DATA 153,038,208,200,192,009 9131 DATA 208,246,177,251,153,239 9132 DATA 007,200,192,017,208,246 9140 DATA 076,188,254,120,169,051 9141 DATA 133,001,169,208,160,000 9142 DATA 133,096,132,095,132,090 9150 DATA 132,088,169,216,133,091 9151 DATA 169,208,133,089,032,191 9152 DATA 163,169,055,133,001,088 9153 DATA 096,169,000,168,153,064 9160 DATA 062,153,000,063,200,208 9161 DATA 247,162,000,169,194,141 9162 DATA 245,193,160,064,169,062 9170 DATA 141,248,193,032,235,193 9171 DATA 162,030,160,128,032,235 9172 DATA 193,160,192,032,235,193 9180 DATA 162,060,160,000,238,248 9181 DATA 193,032,235,193,160,064 9182 DATA 032,235,193,162,090,160 9190 DATA 128,032,235,193,160,192 9191 DATA 032,235,193,169,024,141 9192 DATA 217,062,141,089,063,141 9200 DATA 217,063,169,060,141,220 9201 DATA 062,141,092,063,141,220 9202 DATA 063,160,000,185,064,062 9210 DATA 153,121,062,200,192,003 9211 DATA 208,245,238,168,193,238 9212 DATA 168,193,238,168,193,206 9220 DATA 171,193,206,171,193,206 9221 DATA 171,193,173,168,193,041 9222 DATA 015,201,014,208,216,173 9230 DATA 168,193,024,105,034,208 9231 DATA 006,238,169,193,238,172 9232 DATA 193,141,168,193,009,057 9240 DATA 141,171,193,173,169,193 9241 DATA 201,064,208,187,096,142 9242 DATA 244,193,140,247,193,160 9250 DATA 029,185,093,194,153,192 9251 DATA 063,136,016,247,096,238 9252 DATA 238,238,000,024,000,028 9260 DATA 060,056,031,126,248,031 9261 DATA 126,248,015,189,240,015 9262 DATA 189,240,003,219,192,012 9270 DATA 219,048,031,060,248,063 9271 DATA 255,252,000,024,000,028 9272 DATA 036,056,017,066,136,017 9273 DATA 066,136,008,165,016,008 9280 DATA 165,016,002,090,064,012 9281 DATA 000,048,016,000,008,032 9282 DATA 000,004,000,000,000,000 9283 DATA 000,000,000,024,000,006 9290 DATA 024,096,006,000,096,000 9291 DATA 000,000,000,000,000,000 9292 DATA 000,000,000,000,000,012 9293 DATA 000,048,000,000,000,000 9294 DATA 000,000,000,024,000,003 9300 DATA 102,192,004,000,032,004 9301 DATA 000,032,000,000,000,004 9302 DATA 000,032,004,000,032,008 9303 DATA 000,016 9310 REM LADER KREUZUNGEN ======64 9320 REM 038911 BYTES MEMORY = 9330 REM 005271 BYTES PROGRAM = 9340 REM 000007 BYTES VARIABLES = 9350 REM 000000 BYTES ARRAYS = 9360 REM 000000 BYTES STRINGS = 9370 REM 034403 BYTES FREE(0) = 9380 REM ========================= 9390 REM 000632 BYTES ASSEMBLER = 9400 REM =========================